home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 77 / Tiger_Disk_077_20xx_Tiger-Crew-Disk_de_Side_B.d64 / 3x3 gleich.syst. (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  42 lines
  1. 1 poke53280,6:poke53281,4:printchr$(142):print"[147][155]":fortt=1to8:readtt$(tt):next
  2. 2 printtt$(1):printtt$(2):printtt$(3):printtt$(2)
  3. 3 printtt$(4):printtt$(2):printtt$(5):printtt$(2)
  4. 4 printtt$(6):printtt$(2):printtt$(7):fortt=1to6:printtt$(2):next:printtt$(8)
  5. 5 fortt=1to2:printtt$(2):next:printtt$(1)
  6. 6 data"          #####################"
  7. 7 data"          #                   #"
  8. 8 data"          # mathematik  018   #"
  9. 9 data"          # dieses programm   #"
  10. 10 data"          # loest gleichungs- #"
  11. 11 data"          # systeme mit       #"
  12. 12 data"          # 3 unbekannten.    #"
  13. 13 data"          #  public  domain   #"
  14. 14 wait 198,1:poke198,0
  15. 15 print"[147]die gleichungen muessen von der art :
  16. 16 [153]" ax + by + cz = d":[153]"sein."
  17. 17 [153]"geben sie die ersten  parameter ein     (a,b,c,d)"
  18. 18 [133]a1,b1,c1,d1
  19. 19 [153]"jetzt fuer die zweite gleichung :":[133]a2,b2,c2,d2
  20. 20 [153]"und schliesslich fuer die dritte :":[133]a3,b3,c3,d3
  21. 21 e1[178]((b1[172]a2)[173]a1)[171]b2
  22. 22 e2[178]((c1[172]a2)[173]a1)[171]c2
  23. 23 e3[178]((b1[172]a3)[173]a1)[171]b3
  24. 24 e4[178]((c1[172]a3)[173]a1)[171]c3
  25. 25 e5[178]((e1[172]e4)[171](e2[172]e3))
  26. 26 [139]e5[178]0[167]37
  27. 27 e6[178]((d1[172]a2)[173]a1)[171]d2
  28. 28 e7[178]((d1[172]a3)[173]a1)[171]d3
  29. 29 y[178]((e6[172]e4)[171](e2[172]e7))[173]e5
  30. 30 z[178]((e1[172]e7)[171](e6[172]e3))[173]e5
  31. 31 x[178](d1[173]a1)[171]((b1[173]a1)[172]y)[171]((c1[173]a1)[172]z)
  32. 32 [153]"loesung :
  33. 33 print"x =";x
  34. 34 print"y =";y
  35. 35 print"z =";z
  36. 36 goto38
  37. 37 print"es wurden ungenuegend oder falsche dateneingegeben !"
  38. 38 print"fortsetzung durch eingabe einer 1,      stop bei eingabe einer 0."
  39. 39 geta$:ifa$=""then39
  40. 40 ifa$="1"goto15
  41. 41 end
  42.